﻿Namespace Control
    Public Class Pagamento
        Implements IControl(Of Model.Pagamento)

        Public Function Excluir(ByVal entity As Model.Pagamento) As Boolean Implements IControl(Of Model.Pagamento).Excluir
            entity.Delete()
        End Function

        Public Function ListaTudo() As System.Collections.Generic.IList(Of Model.Pagamento) Implements IControl(Of Model.Pagamento).ListaTudo
            Return Model.Pagamento.FindAll()
        End Function

        Public Function ListaUm(ByVal entity As Model.Pagamento) As Model.Pagamento Implements IControl(Of Model.Pagamento).ListaUm
            Return Model.Pagamento.Find(entity.cd_pagamento)
        End Function

        Public Function Salvar(ByVal entity As Model.Pagamento) As Boolean Implements IControl(Of Model.Pagamento).Salvar
            entity.Save()
        End Function
    End Class
End Namespace